SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TCRENO_CLIE_D01]  
/*-------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                --*/  
/*---Cliente              : OFISIS S.A.                --*/  
/*---Sistema              : Tesoreria                  --*/  
/*---Mödulo               : Empresa                    --*/  
/*---Programa             : Eliminacion de Documentos  --*/  
/*                          Generados x Renovaci÷n     --*/  
/*                          de Letras                  --*/   
/*---Script               : TCRENO_CLIE_D01.sql        --*/  
/*---Nombre SP            : SP_TCRENO_CLIE_D01         --*/  
/*---Desarrollado por     : Denis Villacr's            --*/  
/*---Fecha Creaciön       : 07/07/2000                 --*/  
/*---Base Datos           : Microsoft Sql Server       --*/  
/*---Versiön              : 7.0                        --*/  
/*---Invoca a SP          :                            --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/    
/*---Modificado 1 por     : Maribel Julca Rodriguez      --*/    
/*---Fecha Modificaci©n   : 20/04/2005                   --*/     
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI                           --*/    
/*-------------------------------------------------------*/    
  
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Drop Proc SP_TCRENO_CLIE_D01                      --*/  
/*---Grant all on SP_TCRENO_CLIE_D01 to public         --*/   
/*---SP_TCRENO_CLIE_D01                                --*/  
/*-------------------------------------------------------*/  
 @ISCO_EMPR        TD_VC_002,   
 @ISCO_USUA_MODI   TD_VC_008_USUA,  
 @ISCO_CLIE        TD_VC_020,  
 @ISNU_RENO        TD_VC_008,  
 @ISCO_UNID_CONC   TD_VC_003,  
 @IDFE_RENO    TD_DT_001
	As
Declare  
 @VSCO_ESDO_TMDO   TD_VC_003,  
 @VSCO_ESDO_TMLE   TD_VC_003  
  
  
  Begin Tran SP_TCRENO_CLIE_D01  
  
    Select @VSCO_ESDO_TMDO = CO_ESTA_DOCU From TTTIES_DOCU  
     Where ST_ESDO_0001 = 'S'  
  
      Update  TMDOCU_CLIE   
      Set  TMDOCU_CLIE.CO_ESTA_DOCU = @VSCO_ESDO_TMDO,  
      TMDOCU_CLIE.NU_RENO = NULL,  
      TMDOCU_CLIE.IM_PAGA = TMDOCU_CLIE.IM_PAGA - TDRENO_CLIE.IM_RENO_MDOC,  
      TMDOCU_CLIE.FE_USUA_MODI = Getdate(),   
             TMDOCU_CLIE.CO_USUA_MODI = @ISCO_USUA_MODI  
 From  TDRENO_CLIE  
       Where  TMDOCU_CLIE.CO_EMPR = @ISCO_EMPR  
  And TMDOCU_CLIE.CO_CLIE = @ISCO_CLIE  
  And TMDOCU_CLIE.NU_RENO = @ISNU_RENO  
  And TDRENO_CLIE.CO_EMPR = TMDOCU_CLIE.CO_EMPR  
         And TDRENO_CLIE.CO_CLIE =  TMDOCU_CLIE.CO_CLIE  
         And TDRENO_CLIE.NU_RENO = TMDOCU_CLIE.NU_RENO  
         And TDRENO_CLIE.CO_TIPO_DOCU = TMDOCU_CLIE.CO_TIPO_DOCU  
         And TDRENO_CLIE.NU_DOCU_CLIE = TMDOCU_CLIE.NU_DOCU_CLIE  
  
    If @@error <> 0  
       Begin  
         Rollback tran  
         Return  
       End  
  
  
  
 Select @VSCO_ESDO_TMLE = CO_ESTA_DOCU From TTTIES_DOCU  
     Where  ST_ESDO_0007 = 'S'  
  
 Update  TMLETR_CLIE  
 Set  TMLETR_CLIE.CO_ESTA_DOCU = @VSCO_ESDO_TMLE,  
         TMLETR_CLIE.NU_RENO = NULL,  
  TMLETR_CLIE.IM_PAGA = TMLETR_CLIE.IM_PAGA - TDRENO_CLIE.IM_RENO_MDOC,  
         TMLETR_CLIE.FE_USUA_MODI = Getdate(),   
                TMLETR_CLIE.CO_USUA_MODI = @ISCO_USUA_MODI  
 From  TDRENO_CLIE  
 Where  TMLETR_CLIE.CO_EMPR = @ISCO_EMPR  
  And TMLETR_CLIE.CO_CLIE = @ISCO_CLIE  
  And TMLETR_CLIE.NU_RENO = @ISNU_RENO  
  AND TDRENO_CLIE.CO_EMPR = @ISCO_EMPR  
  And TDRENO_CLIE.CO_UNID_CONC = @ISCO_UNID_CONC  
         AND TDRENO_CLIE.CO_CLIE=  @ISCO_CLIE  
         AND TDRENO_CLIE.NU_RENO = @ISNU_RENO  
         AND TDRENO_CLIE.FE_RENO = @IDFE_RENO  
         And TDRENO_CLIE.CO_TIPO_DOCU = 'LET'  
  And TDRENO_CLIE.NU_DOCU_CLIE = TMLETR_CLIE.NU_LETR_CLIE  
  
  If @@error <> 0  
       Begin  
  Rollback tran  
         Return  
       End  
  
 Insert Into  TMREGI_ELIM (CO_EMPR, CO_TABL_ORIG, DE_TABL_ORIG,  
           CO_CLAV_TAOR, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)   
 select  @ISCO_EMPR, 85, 'MAESTRO LETRAS CLIENTES',  
              Rtrim( @ISCO_EMPR )+ Replicate('#', 2-Len(Rtrim(@ISCO_EMPR))) +   
         Rtrim( NU_LETR_CLIE )+ Replicate('#', 15-Len(Rtrim(NU_LETR_CLIE))), @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE()   
 From   TMLETR_CLIE  
 Where  CO_EMPR = @ISCO_EMPR  
        And CO_CLIE = @ISCO_CLIE  
        And NU_RENO = @ISNU_RENO  
  
   If @@error <> 0  
      Begin  
        Rollback tran  
        Return  
      End      
  
/*  
    Delete TMLETR_CLIE  
     Where CO_EMPR = @ISCO_EMPR  
           And CO_CLIE = @ISCO_CLIE  
    And NU_RENO = @ISNU_RENO   
           And NU_RENO is null  
*/  
  
  
     Delete TMLETR_CLIE  
     where  TMLETR_CLIE.CO_EMPR = @ISCO_EMPR  
     And    TMLETR_CLIE.CO_CLIE = @ISCO_CLIE  
     And    TMLETR_CLIE.NU_RENO = @ISNU_RENO  
     And    Exists (Select T1.CO_CLIE  
                    From   TDRENO_CLIE T1, TCRENO_CLIE T2  
                    Where  T1.CO_EMPR = @ISCO_EMPR                 
                    And    TMLETR_CLIE.CO_EMPR = T1.CO_EMPR  
                    And    TMLETR_CLIE.CO_CLIE = T1.CO_CLIE  
                    And    TMLETR_CLIE.NU_RENO = T1.NU_RENO  
                    And    TMLETR_CLIE.NU_LETR_CLIE = T1.NU_LETR_CLIE
	            And    T1.CO_EMPR = T2.CO_EMPR
	            And    T1.CO_UNID_CONC = T2.CO_UNID_CONC
	            And    T1.CO_CLIE = T2.CO_CLIE
	            And    T1.NU_RENO = T2.NU_RENO
                    And    T2.FE_RENO = @IDFE_RENO
	            And    T1.FE_RENO = T2.FE_RENO)  
  
     If @@error <> 0  
       Begin  
         Rollback tran  
         Return  
       End      
  
  
 Insert into  TMREGI_ELIM (CO_EMPR, CO_TABL_ORIG, DE_TABL_ORIG,  
           CO_CLAV_TAOR, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI )  
    select @ISCO_EMPR, 86, 'DETALLE RENOVACI.N CLIENTES',  
        Rtrim( @ISCO_EMPR )+ REPLICATE('#', 2-LEN(RTRIM(@ISCO_EMPR)))+   
        Rtrim( @ISCO_CLIE )+ REPLICATE('#', 20-LEN(RTRIM(@ISCO_CLIE)))+  
        Rtrim( @ISNU_RENO )+ REPLICATE('#', 8-LEN(RTRIM(@ISNU_RENO)))+  
        Rtrim( NU_SECU )+ REPLICATE('#', 1-LEN(RTRIM(NU_SECU))), @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE()  
 From   TDRENO_CLIE  
 Where  CO_EMPR = @ISCO_EMPR  
        And CO_UNID_CONC = @ISCO_UNID_CONC  
        And CO_CLIE = @ISCO_CLIE  
        And NU_RENO = @ISNU_RENO  
        And FE_RENO = @IDFE_RENO  
  
   If @@error <> 0  
      Begin  
        Rollback tran  
        Return  
      End      
  
  
 Delete  TDRENO_CLIE  
 Where  CO_EMPR = @ISCO_EMPR  
        And CO_UNID_CONC = @ISCO_UNID_CONC  
        And CO_CLIE = @ISCO_CLIE  
        And NU_RENO = @ISNU_RENO  
        And FE_RENO = @IDFE_RENO  
  
    If @@error <> 0  
       Begin  
         Rollback tran  
         Return  
       End          
  
  
 Insert into  TMREGI_ELIM (CO_EMPR, CO_TABL_ORIG, DE_TABL_ORIG,  
           CO_CLAV_TAOR, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)   
    select @ISCO_EMPR, 25, 'CABECERA RENOVACI.N CLIENTES',  
        RTRIM( @ISCO_EMPR )+ REPLICATE('#', 2-LEN(RTRIM(@ISCO_EMPR)))+   
               RTRIM( @ISCO_CLIE )+ REPLICATE('#', 20-LEN(RTRIM(@ISCO_CLIE)))+  
        RTRIM( @ISNU_RENO )+ REPLICATE('#', 8-LEN(RTRIM(@ISNU_RENO))), @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE()  
 From   TCRENO_CLIE  
 Where  CO_EMPR = @ISCO_EMPR  
        And CO_UNID_CONC = @ISCO_UNID_CONC  
        And CO_CLIE = @ISCO_CLIE  
        And NU_RENO = @ISNU_RENO  
        And FE_RENO = @IDFE_RENO  
  
   If @@error <> 0  
      Begin  
        Rollback tran  
        Return  
      End      
  
  
    Delete TCRENO_CLIE  
     Where CO_EMPR = @ISCO_EMPR  
       And CO_UNID_CONC = @ISCO_UNID_CONC  
       And CO_CLIE = @ISCO_CLIE  
       And NU_RENO = @ISNU_RENO  
       And FE_RENO = @IDFE_RENO  
  
    If @@error <> 0  
       Begin  
         Rollback tran  
         Return  
       End      
  
Commit Tran  
  
/*------------------------- Fin ------------------------------*/


GO
